#!perl -T

use Test::More tests => 4;

use Data::PrintUtils qw(:ALL);

is (formatList( qw/One Two/), "(One, Two)", "formatList - one line list");
is (formatList( {LIST_START => "!"} ,qw/One Two/), "!One, Two)", "formatList - one line list - ! as Start");
is (formatList( {LIST_END => "!"} ,qw/One Two/), "(One, Two!", "formatList - one line list - ! as End");
is (formatList( {ELEMENT_SEPARATOR => "|"} ,qw/One Two/), "(One|Two)", "formatList - one line list - | as separator");



